home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / tagcalls / dos.inc < prev    next >
Encoding:
Text File  |  1998-06-24  |  1.3 KB  |  64 lines
  1. pattern AllocDosObjectTags(_type, ...) is
  2.     push d2\a6;
  3.     push.l ...;
  4.     safe d1.l:=_type; d2.l:=sp;;
  5.     a6:=DOSBase; jsr [a6-228];
  6.     sp:=sp+countof(...)<<2;
  7.     pop d2\a6;
  8. endp;                                                            # ALLOCDOSOBJECTTAGS
  9.  
  10. pattern CreateNewProcTags( ...) is
  11.     push a6;
  12.     push.l ...;
  13.     d1.l:=sp;
  14.     a6:=DOSBase; jsr [a6-498];
  15.     sp:=sp+countof(...)<<2;
  16.     pop a6;
  17. endp;                                                            # CREATENEWPROCTAGS
  18.  
  19. pattern NewLoadSegTags(_file, ...) is
  20.     push d2\a6;
  21.     push.l ...;
  22.     safe d1.l:=_file; d2.l:=sp;;
  23.     a6:=DOSBase; jsr [a6-768];
  24.     sp:=sp+countof(...)<<2;
  25.     pop d2\a6;
  26. endp;                                                            # NEWLOADSEGTAGS
  27.  
  28. pattern SystemTags(_command, ...) is
  29.     push d2\a6;
  30.     push.l ...;
  31.     safe d1.l:=_command; d2.l:=sp;;
  32.     a6:=DOSBase; jsr [a6-606];
  33.     sp:=sp+countof(...)<<2;
  34.     pop d2\a6;
  35. endp;                                                            # SYSTEMTAGS
  36.  
  37. pattern FPrintf(_fh,_format, ...) is
  38.     push d2\d3\a6;
  39.     push ...;
  40.     safe d1.l:=_fh; d2.l:=_format; d3.l:=sp;;
  41.     a6:=DOSBase; jsr [a6-354];
  42.     sp:=sp+ssizeof(...);
  43.     pop d2\d3\a6;
  44. endp;                                                            # FPRINTF
  45.  
  46. pattern FWritef(_fh,_format, ...) is
  47.     push d2\d3\a6;
  48.     push ...;
  49.     safe d1.l:=_fh; d2.l:=_format; d3.l:=sp;;
  50.     a6:=DOSBase; jsr [a6-348];
  51.     sp:=sp+ssizeof(...);
  52.     pop d2\d3\a6;
  53. endp;                                                            # FWRITEF
  54.  
  55. pattern Printf(_format, ...) is
  56.     push d2\a6;
  57.     push ...;
  58.     safe d1.l:=_format; d2.l:=sp;;
  59.     a6:=DOSBase; jsr [a6-954];
  60.     sp:=sp+ssizeof(...);
  61.     pop d2\a6;
  62. endp;                                                            # PRINTF
  63.  
  64.